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ae 1 b-se0-1984 9}: $6: i DISKSVMSMASTER:CEDT + Shc SRANRPOS.BLI: 1 . (1) 


000 MM cp lenunegs ~ position to the first Line of a etone 

i MODULE EDTSRANRPOS ( i , : Posit * o the first | nee o cones 
poe jDENT = 'v04-000 le t RANRPOS BL I Ed fe! 17 
+ 


PITTIIILILLLLL LLL LLL LLL LL LLL LLL LLL LLL LLL LLL LLL 
'@ a 
ie COPYRIGHT | (ot 1978 1980, 1982, 1984 8 . 
ie DIGITAL T CORPORATION, MAYNARD. MASSACHUSETTS. : 
is ALL RIGH gU AESERVED™ * 
' # 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
sd 
& 
® 
® 
® 
® 
® 
® 
® 
tr 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
‘* aeoke ‘ste NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!t SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
TITTIIILILIL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL LLL! 
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lee 

FACILITY: EDT == The DEC Standard Editor 

i ABSTRACT: 

Position to the first Line of a range. 

; ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 

i MODIFIED BY: 

i 1-001 - Original. Dus 19-FEB-1981. This module was created by 
: extroct ing routine RPOS from module RANGE. 

} Coguler ze seeeere JBS 12-Mar-1 

i 
' 
i 
i] 
in 
' 
f 
' 


ange to use the ASSERT macro. JBS S Sta dyer tte 
Gee he new sonne . codes. 1981 


| a my TS tet ey ee thee he th tN a 
MEUM 20 OBNOAUE WN" O OONAUES WN" OOONOUES WAN“ OOOWVOU Sw 


JBS 
Use the n 4 PREV_RANGE field for ALLY JBS 02-Nov-1981 


Chan e the way uffer po aved for - ranges. at 15- 
uffer pos we have i. 8 13, § -Apr- 
string tH Ae JBS 
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4 - 
0 = In THRU Fah ™ ag’ irae rang is not found the whole 
1 range fails. 98 
§ - Fix any siz outblens in. ar thagt ic Bn compares. SMB 25-Jan-1982 
- Remove original Line numbers. 
: - Add error message and por Hales for original Line num ore, 1865 6-Feb-1982 
- ss 


Don’ change 


Worry abou 5-May-1 


cigggtros__eoTanamvos ~ penton to ene firat Une of wr Hse IRHE O:BttS  MCLUARARRER ES skESeamras.01:50% 8] |B 


—— | 


3 ! 1-013 = Add error oy for incomplete — ren es. to 01-Jul-1982 

5 H : ' 1-014 = Make gure re n No Bel logs re eat 02-J (21983 

; ! 1-015 = Put edt$ rng. Pet x "in Line sf 

3 1 ! 1-016 = Modify to usé new compare macro. ST ° wt = 982 

3 6¢ } } 1-017 = Remove setting of G_TXT_ONSCR with select range. SMB 13-Dec-1982 
: 64 4 1 
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¥04+000 Declarations of 127800 -1 382 93; $:93 DISK SVMGMASTER-CEDT  SRCIRANRPOS..BLI:1 


$ $6 5 } SSBTTL "Declarations' 
4 é : : TABLE OF CONTENTS: 

:; 720 1 

3 a! : REQUIRE ‘EDTSRC: TRAROUNAM'; 
3 7 i? 1 FORWARD ROUTINE 

3 74 51 1 EDTSSRNG_REPOS; 
ve 21§ 1 

; fF 314 1 i INCLUDE FILES 

co # 19 1! 

o@, 218 1 

3 , 51 } REQUIRE ‘EDTSRC:EDTREQ'; 
; § $3 es 

3 654 1 ! MACROS: 

3 84 8822 1! 

; 85 28 1! NONE 

; B82 1! 

3 87 28 1 ! EQUATED SYMBOLS: 

3 88 0659 1! 

3 89 goe8 1! NONE 

3 90 . RS 

3 91 § 1 ! OWN STORAGE: 

i = 65 1! 

3 a 664 1 ! NONE 

; 94 0665 1! 

3 95 066 1 ! EXTERNAL REFERENCES: 
2) oe 0667 1! 

; «697 0668 1! In the routine 


3 
(2) 
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04 EDTSSRNG_REPOS = position to the first L ye “ot 12: 300-138 95 358398 DISKSVMSMASTER: CE tbe" she RANRPOS .BLI;1 fase (3) 
ZSBTTL ‘EDTSSRNG_REPOS = position to the first Line of a range’ 


ae Se EDTSSRNG_REPOS ( ! Position to the “ee Line of a range 


N i Range to position t 


This routine positions to the first Line of a range. 
{ FORMAL PARAMETERS: 
RANGE The range node. 
IMPLICIT INPUTS: 
ED TSS. SEL -BUF 


] 
lee 
j Petro, DESCRIPTION: 


oO 
SOOONAUE WN —O OONOUS WIN "OO0 


UF 
EDTS$$Z “RNG ORIGPOS 
EDTS$A_SEL_POS 
EDTSSA_W KEN. 


IMPLICIT OUTPUTS: 


EDTS$$G_RNG_MORELN 
$G_RNG_NOOF LN 


Aaa 
fe oF 
% wn 


ED 
ED 
ED 
ED 
ED 
ED 
ED 
EDTS$.~ RNG” ~GRIGPOS 


{ ROUTINE VALUE : 


0 = no such Line 
1 = positioned successfully 


{ SIDE EFFECTS: 
Current text buffer is re-positioned 


7 
7 
7 
7 
7 
7 
7 
7 


0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
it 


BEGIN 
EXTERNAL RO ROUTINE 

EO TSeane “RePbs 
EDT$$G_ERE SBITS, 
EDTSS$F Fab STR, 

ED TSSEND™ ~Bur: 
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MESSAGES ((NOSELRAN, NOSUCHLIN, STRNOTFND, INSMEM, NOORIGNUM, INVSTR, I* SRAN)); 


P 
RANGE : REF NODE_BLOCK; 


1+ 
, Make sure the parameter is a range node. 


ASSERT (.RANGE CNODE_TYPE] EQL RANGE_NODE); 
Initialize for first Line of range. 


EDT$$G_RNG_MORELN = 1; 
EDT$$G_RNG-NOOFLN = 0: 


Case on range type. 
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704-000 EDT SRNG_REPOS = position to the first Line of 1 Her 1 93:58:93 DLSKSVMGMASTERSCEDT. SRCSRANRPOS .BLI:1 . (3) 
DTSSSET_SEASTR, 

: FDI SSur BOY 

7 DISSRD-PRVLN, 

7 EDTSSRD_CURLN, 

7 EDTSSRD_NXTLN, 

7 EDTS$TOP_8 ° 

f EDTSSLOC_LN; 

7 exTean®, 

7 EDTSS$G_CUR_COL, ' f cogent cursor column 

7 EDTSS$L_LNOS : LN_BLOCK, ' One 

7 EDTSSA_SEL_BUF, ' Select buffer 

7 EDTSSL_SEL_LN ' Select line 

7 EDTS$SA_PRV_BUF , i The previous TBCB for LAST range. 

7 EDTSSA_CUR_BUF : REF TBCB_BLOCK, ! The current text buffer 

7 EDTSST_LN_BUF ' Line buffer 

7 EDT$$G_RNG_MORELN, i Used by EDTSSNXT_LNRNG to indicate more Lines. 

7 EDTS$$G_RNG_FRSTLN, ! Indicates first Tine in a range. 

7 EDTS$G_RNG_NOOFLN ! Count of number of Lines in a range. 

7 EDT$$Z_RNG_ORIGPOS : POS BLOCK, ! To save the position at start of command. 

7 aot G_EOL : LN_BLOC ! The Line number at which this range ends 

7 EDTSS$Z_RNG_CURRNG : REF NODE BLOCK, ! The current range node 

7 EDTS$$Z_RNG_SAVPOS : POS_BLOCR, ! To save the beginning of range 

7 EDTSSA_SEL_POS, ' Select position 

. EDTSSA_WK_CN : REF LIN_BLOCK; ! The current Line pointer. 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 

7 
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770 stone goa CRAN_TYPE] FROM 0 TO NUM_RAN OF 

77 '¢ 

77 : If range is ‘." or REST, the original position is the first Line. 

77 CRAM DOT. RAN_NULL, RAN_REST] : ! Use the current position 

77 EDTSSCPY_MEM (POS_SIZE, EDT$$Z_RNG_ORIGPOS, .EDTSSA_CUR_BUF); 
EDTSSRD_CURLN (); 

rei END; 

781 '¢ 


2 2! Line number range. find the line. 


8 eesseeccoccoccoccocoosese 
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SRANRPOS EDTS 
-000 EDTS 
a: 
1? , 5 
ae 
a 
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; oR 
5 735 
; OR 
8 798 
9 99 
; 
. 80 
80 
$e 
5 805 
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le 
CRAN_NUMBER]) : 
BEGIN 
gor $G_RNG_MORELN = EDTS$LOC_LN (RANGE CRAN_VAL]); 


'¢ 
! Range is BEFORE. Try going back a Line to find out if there are any, 
then save that number as the Last Line number in the range. 


CRAN per ones : 
EDTS$G_RNG_MORELN = Abarat (); 
MOVEL IRE (EDTS$A_WK_LN CLIN“NUMJ, EDTS$L_RNG_EOL); 
EDTSSTOP_BUF (); 

- END; 

Range is WHOLE or BEGIN. Position to the first Line in the buffer. 


CRAN_WHOLE 


RAN_BEGIN) : 
EDTS$TOP 


BUF 0); 

' Range is SELECT. Check to see if there is a select range in effect. 
! If it not in the current buffer, then switch to the buffer which has 
! the select. Then position to the first Line of the select range. 


CRAN_SELECT] : 
BEGIN 


LOCAL 
TMPRAN : LN_BLOCK; 


IF (.EDTS$$A_SEL_BUF EQLA 0) 
THEN 
BEGIN 
EDTSSFMT_MSG (EDTS_NOSELRAN); 
EDT$$G_RNG_MORELN = 0; 
EDT$$Z~RNG_CURRNG = .RANGE; 
IF (.EDTS$G_RNG_FRSTLN) THEN EDTSSCPY_MEM (POS_SIZE, .EDT$$A_CUR_BUF, EDT$$Z_RNG_SAVPOS); 
RETURN (0); 
END 
ELSE 
BEGIN 


If (-EDTSSA_SEL_BUF NEGA .EDTSSA_CUR_BUF) 


BEGIN 

EDTSSA_PRV_BUF = .EDTSS$A_CUR_BUF; 
EDT$$A_CUR-BUF = .EDTSSA_SEL_BUF; 
FOTSSRD. CURLN Q; 


| 
e 6) 
(3) | 
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104000 EDISSRNG REPOS position to the first Utne of 1 mat 93:58:98 DISKSVMSMASTER: CEDT.SRCJRANRPOS .BLI;1 . (3) 
s aT 0 4 SuBL INE (EDTSSA_CUR BUF CTBCB_CUR_ LIN], EDTSSL_SEL_LN, TMPRAN); ; 
; f <3 : ts RANGE C[RAN_VAL]~= .TMPRAN; !Gnly want to move a word : 
; t tz 2 ! For Line mode commands the select range must be in whole Lines | ; 
: 275 45 6 ; 
; rg +8 5 IF (.EDTSSG_CUR_COL NEQ 0) OR (.TMPRAN EQL 0) | : 
Be 47 & THEN : 
: A: ‘8 EGIN : 
; 4 EDTSSFMT_MSG (EDTS_INVSRAN); : 
; 280 50 EDTS$$G_RNG_MORELN = 0; 3 
: 38) 2} EDTSSZ—RNG_CURRNG = .RANGE; : 
: es 085§ IF (.EDTS$G_RNG_FRSTLN) THEN EDTSSCPY_MEM (POS_SIZE, .EDTS$S$A_CUR_BUF, EDT$$Z_RNG_SAVPOS) : 
; 285 0855 RETURN (0); 
ee eS us ; 
; 289 0859 5 IF (.RANGE CRAN_VAL] LSS 0) 3 
: 290 0860 4 THEN ; 
> 291 0861 BEGIN : 
3 4 +444 RANGE CRAN_VAL] = -.RANGE CRAN_VAL); : 
: 294 864 DECR I FROM .RANGE CRAN_VAL] - 1 TO 0 DO ; 
: 295 65 2 EDTSSRD_PRVLN (); : 
2 Bt oe: 7 
: 299 th 5 IF CHSPTR_NEQ (.EDTS$A_SEL_POS, CHSPTR (EDTS$T_LN_BUF)) 3 
; 300 0870 4 THEN 3 
; 4 p37) ? RANGE CRAN_VAL] = .RANGE CRAN_VAL] + 1; ‘ 
; 08 e78 4 EDTSSA_SEL_BUF = 0; : 
. on | : 
: 307 Br? 3 4 ~ : 
; 308 378 ! Range is END. Position to the end of the buffer. : 
RS fie gS : 
; 311 881 CRAN_END) : ; 
; 1 0 ; BEGIN : 
ae} EDTSS$WF_BOT (); : 
3; 514 4 EDT$$G_RNG_MORELN = 0; ; 
; \? 885 te END; | ; 
: 19 $ i Range is ORIGINAL. This is no longer a feature of EDT, so print a warning : 
; 18 5 and type the real Line number corresponding to the Line input : 
: $20 ; : 
3 1 9 CRAN_ORIG) : | : 
; ; BEGIN | : 
> 326 LOCAL ; 
8 2 LINNO : LN_BLOCK; | : 
| 


EDTSRANRPOS EDTSRANRPOS = position to the first Line c Ibese $ep-1984 VAX-11 Bliss-32 V4.0-74 
TOA 000 EDTSSRNG “REPOS” = position to the list l f “ol 1 seit 4: 9}: $6: 9 DISKSVMSMASTER:CEDT.SRCJRANRPOS.BLI;1 
7 97 EDTSSCPY_MEM (POS SIZE EDTSSAL CUR_BUF, EDT$$Z_RNG_SAVPOS); 
98 EDTSSFMT_MSG (EDTS NOOR! ORIG 
MULTLINE™ (EDTSSL_LAO AaNCE ERAN _VAL], LINNO); 


WHILE NOT (LINNOEQL (EDTSSA_WK_LN CLIN_NUMJ, LINNO)) DO 
IF ( NOT EDTSSRO_NXTLN ()) 
THEN 


Wn 
~o 
oO 
Win 


i EOTSSANG REPOS (RANGE CSUB_RANGEJ) 


BEGIN 
EDT$$G_RNG_MORELN = 1; 


: 335 5 ; B 

3 9 4 atte RNG_MORELN = 

; 907 4 EDTSS$CPY nen (POS 1k, EDT$$Z_RNG_SAVPOS, .EDT$$A_CUR_BUF); 
5 : 208 4 EDTSSRD_CURLN 

; 909 4 EDTSS Srat MSG (EDTS _NOSUCHLIN) ; 
; 0 910 4 RETURN (0); 

: 4) 911 ENDS. 

3 ¢g a 

; 34 91 END; 

; 4 0914 '¢ 

; 5 0915 i Range is MINUS. Make a recursive call to position to the range then 
: ré 9318 ' move back the Specified number of Lines. 

3 091 in 

3 8 918 

: 49 919 CRAN_MINUS) : 

3 9 , Y BEGIN 

3 2g 09 § IF EDTSSRNG_REPOS (.RANGE CSUB_RANGE]) 
; 3 09 THEN 

3 354 8 4 4 BEGIN 

; 355 925 4 EDTS$G_RNG_MORELN = 1; 

3 2 0926 4 

5 3 oe 4 ? INCR I FROM 1 TO .RANGE CRAN_VAL) DO 
; 359 0929 5 IF ( NOT EDTSS$RD_PRVLN ()) 

; 360 0930 4 THEN 

3 1 0931 5 BEGIN 

: $ bars 5 EDTS$$G_RNG_MORELN = 0; 

3 0933 5 EXITLOOP; 

3 0934 5 END 

; 5 0935 5 

; 09 § 4 END 

; 7 09 ELSE 

; 8 0938 EDT$$G_RNG_MORELN = 0; 

3 6° 0939 

; 940 END; 

: 7 941 '¢ 

: 7 94 i Range is Plus. Make a recursive call to peste ten to the range then 
: 7 94 i move forward the specified number of Lin 

: 374 944 ie 

; 375 945 

; 7 94 CRAN_PLUS) : 

: 37 94 BEGIN 

3 4 

3 4 

: 4 


Page 
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¥04-000 EDISSRNG REPOS” ’= position to the first Line of lacsepel9be 2:54:19 DISKSVMGHASTERSCEDT SRCSRANRPOS.BLI:T°™* (35 v0. 
: ¢ ¢ 4 INCR I FROM 1 TO .RANGE CRAN_VAL] DO : 
; 6 3 IF ( NOT EDTSSRD_NXTLN ()) ; 
; 9 4 THEN $ 
; 9 8 peGiN : 
; 389 95 EDT$$G_RNG_MORELN = 0; ; 
> $90 960 EXITLOOP; : 
: 4 Be) ND ‘ 
; 38 368 END 3 
> 39% 64 ELSE ; 
; 395 965 EDTS$G_RNG_MORELN = 0; : 
; 39 96 END; : 
; 398 208 '¢ : 
; inp 34 j Range is FOR or #. Just position to the original range. ; 
; 401 971 | : 
; 40 $378 CRAN_FOR) : : 
; 403 0973 ie EDT$S$G_RNG_MORELN = EDTSSRNG_REPOS (.RANGE CSUB_RANGEJ); ; 
: 4605 0975 i Range is a search string. Save the current position, search for the ‘ 
; rts 3978 ! str ng in the specified direction. If the string is not found, then ‘ 
; 40 097 ! reposition and return failure. : 
A At 7 
; 410 980 CRAN_STR, RAN_MINSTR] : ; 
5 ot) 1 BEGIN : 
: 218 0988 LOCAL ; 
; ret i : FIND_STATUS; ‘ 
; 416 34-4) EDTSSCPY_MEM (POS SIZE, .EDTSS$A_CUR_BUF, EDT$$Z_RNG_SAVPOS); : 
: rt 4 rs 14 FIND_STATUS = EDTSSFND_STR (.RANGE CSTR_PNTJ, .RANGE CRAN_VALJ, (.RANGE CRAN_TYPE] EQL RAN_STR)) ; 
: 419 989 CASE .FIND_STATUS FROM 0 TO 2 OF ; 
Be 0 : 
; 4 § 99 (0) : ! $tring not found : 
3; 4 9935 4 BEGIN : 
; 426 994 4 EDTSSFMT_MSG (EDTS_STRNOTFND); : 
3; 425 995 4 EDTS$$G_RNG_MORELN = 0; : 
i 426 996 4 EDTSSCPY_MEM (POS_SIZE, EDT$$Z_RNG_SAVPOS, .EDTS$A_CUR_BUF); : 
3 6 997 4 EDTSSRD EURLN 0; 

3; 4 3 238 RETURN TO); 

: ? +4 END; 

; 431 1001 C1) : ! String found 

3; 4 § 1 § 4 EGIN 

; 4 ; END 

; 435 1005 ; : 

: 4 1 (2) : ! String invalid 

; 4 1 4 BEGIN 

3; 6 3 1 ; 4 EDTSSFMT_MSG (EDTS_INVSTR); 

; 43 1009 4 EDT$$G_RNG MORELN = 0; 

; 440 1010 4 EDTSSCPY_MEM (POS_SIZE, EDT$$Z_RNG_SAVPOS, .EDT$$A_CUR_BUF); 


SS — _ rc 
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’ -000 EDTSSRNG R Epos’ = position to the first l a “of “520-1984 93: $f %3 bis SKSVMSA STER: cto i SRCIRANRPOS. BLI;1 5 

; 441 1011 4 EDTSSRD seus QO; : 
; 46 1 1 RETURN (0); : 
; 446 101 ; : 
: 664 1014 TES; é 
; 465 1015 ; 
Roo ow ine 4 
3 44 1 18 i Range is THRU or : . Position to the first range, then find the Line | : 
; 4&4 101 i number of the end of the range. Special case when the end range is a : 
; 450 1020 i Line number or END. Otherwise, save the current position and position to : 
; $51 1021 ! the end to get the end range. If either the first or last cannot be . 
; 4 ¢ 1 ¢ ! found the whole range fails. : 
; $546 1024 : 
; 455 1025 CRAN_THRU] : : 
; $e ! § BEGIN 
; 458 19 , LOCAL : 
; 459 10 EDTSSSAV_BUFPOS : POS_BLOCK; ‘ 
: tet 103) BIND ; 
; 46 103¢ END_RANGE = .RANGE CRANGE2] : NODE_BLOCK; i 
i 4 1034 BIND ; 
; 485 1035 START_RANGE = .RANGE CRANGE1) : NODE_BLOCK; ‘ 
; 46? Hh! IF ( NOT EDTSSRNG_REPOS (START_RANGE)) THEN RETURN (0); ; 
; 469 1059 & IF (.END_RANGE CRAN_TYPE] EQL RAN_NUMBER)  ! : 
$471 1041 EDTSSCPY_MEM (LN_SIZE, END_RANGE CRAN_VALJ, EDTS$S$L_RNG_EOL) : 
; of 1908 LSE , 
; 474 1b¢4 4 IF (.END_RANGE CRAN_TYPE] EQL RAN_END) ; 
; “? 1046 ; evse nee CRAN_TYPE] = RAN_REST : 
ne sane : 
; 480 1050 4 LOCAL 3 
H ret 1082 2 END_FOUND; : 
; & 1055 4 EDTSSCPY_MEM (POS SIZE, .EDTSSA_CUR BUF, EDTSSSAV_BUF POS) ; : 
; oR 1094 4 END_FOUND = EDTS$SRNG_REPOS (END-RANGE); 3 
; is ' $ ? IF .END_FOUND THEN MOVELINE (EDTSSA_WK_LN CLIN_NUM], EDTSSL_RNG_EOL); : 
; 4 1 28 4 EDTSSCPY_MEM (POS_SIZE, EDTSSSAV_BUFPOS, .EDTSSA_CUR_BUF); | : 
; 2 9 } 23 2 EDTSSRD_CURLN ();~ : 
; ri : 1 2 IF ( NOT .END_FOUND) THEN RETURN (0); | ‘ 
; red, ! § END; | : 
; 495 1065 EDTSSG_RNG_MORELN = 1; | : 
; 199 1 \* | : 
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mange is ALL range. Look gt the renee to which ALL applies. If it i 


32 _V 
R: CE 


iC — (3) 


<m 
£2 


ot’ snes P 
DT.SRCJRANRPOS .BLI;1 


! 

i mull, assume WHOLE. Position to tha range hen set up the ALL strin 
00 i as the current search string. Note that EDf$$Z_RNG_CURRNG will be no 
01 ! that ALL range but its subordinate. PREV_RANGE will point back to the 
28 ALL range. 

5 CRAN_ALL] : 
. BEGIN 
LOCAL 


SUB_RAN : REF NODE_BLOCK; 


SUB_RAN = .RANGE FNEXT RANGE}: 
ASSERT (.SUB_RAN CPREV-RANGE] EQLA .RANGE); 


IF (.SUB_RAN CRAN_TYPE] EQL RAN_NULL) THEN SUB_RAN CRAN_TYPE] = RAN_WHOLE; 


EDT$$G_RNG_FRSTLN = 1; 
EDTSSCPY_MEM (POS_SIZE, .EDTS$A_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 


IF ( NOT EDTSSRNG_REPOS (.RANGE CNEXT_RANGEJ)) THEN RETURN (0); 
ren NOT EDTSSSET_SEASTR (.RANGE CSTR_PNTJ, .RANGE CRAN_VALJ)) 


BEGIN 
EDTSSFMT MSG (EDTS_INVSTR); 
RETURN (0); 


RETURN (1); 
END; 
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! The range contains a buffer specification. Switch to the new buffer, then 
! position to the range within the buffer. If the range within the buffer 

! was null, assume WHOLE. 
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CRAN BUFFER) : 
BEGIN 


LOCAL 
SUB_RANGE : REF NODE BLOCK; 


eats ol (RANGE CBUF_NAME], .RANGE CBUF_LENJ) 


BEGIN 
SUB_RANGE = .RANGE CRANGE1); 


IF ( NOT .EDTS$G_EXE_SBITS<OPB_STAY>) 
EDTSSCPY_MEM (POS_SIZE, .EDTS$$A_CUR_BUF, EDT$$Z_RNG_ORIGPOS); 
EDTSSTOP_BUF (); 
IF (.SUB_RANGE CRAN_TYPE] EQL RAN_NULL) THEN SUB_RANGE CRAN_TYPE] = RAN_WHOLE; 
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-TITLE EDTSRANRPOS EDTSRANRPOS - position to the first 
line of ar 
-IDENT \V04-000\ 


EDTSRANRPOS EDTSRANRPOS = position to the first Line r bese $ep-1984 6: VAX-11 Bliss-32 V4.0-74 Page 12 
vO4=000 EDTSSRNG "REPOS? ° position to the first l a of 1 30-1984 9): 3 93 DI SKSUMGMASTERSCEDT SRCSRANRPOS..BLI;1 : (3) 
; 5 i $ 4 RETURN (EDTSSRNG_REPOS (.SUB_RANGE)); : 
: 389 1 ; 3 ELSE ; 
; : 1159. EST SSEMT_MSG (EDTS_INSMEM) ; ; 
: 560 1130 4 RETURN (0); | 3 
: 61 i 1 4 END ; 
es i § \+ an 
: 565 1135 i Range is LAST. Switch back to the buffer pointed to by EDTS$A_PRV_BUF ; 
: $8 i $ {at t's current position. : 
: 568 1138 : 
: $9 1139 CRAN_LAST) : : 
: 0 1140 BEGIN : 
: 3h) 1143 LOCAL 
mit lew, ! 
: 575 1145 TEMP = .EDTSSA_CUR_BUF ; 
; 576 1146 EDT$$A_CUR_BUF ~= VEDTS$A_ PRV_BUF ; : 
; 577 114 EDTS$A-PRV-BUF = .TEMP; : 
: 578 1148 EDTSSRB_ CURN ( ); 3 
oes Bit a : 
: 581 1151 C INRANGE OUTRANGE] ; 
; 382 1138 ASSERT (0); ; 
; 58 115 ES; : 
ner : 
: 238 1126 - Save the range node and the current position. : 
: $88 1138 " EDT$$Z_RNG_CURRNG = .RANGE; : 
: 290 1160 IF (.EDTS$$G_RNG_FRSTLN) THEN EDTSSCPY_MEM (POS_SIZE, .EDTS$SA_CUR_BUF, EDT$$Z_RNG_SAVPOS); : 
: 336 116¢ RETURN (1); : 
; 59 1165 (1 END; ! of routine EDTSSRNG_REPOS : 
.EXTRN EDTSSFMT msg 1ERTSSRNG. REPOS : 
-EXTRN EDT$$G_ERE 3 
-EXTRN EDTSSF SERB “aT TEDTSSFND _BUF : 
sEXTRN EDTSS$SET~ : 
~EXTRN EDTSSWF “601, “EDS a0 PRVLN 3 
-EXTRN EDTSSRD- M. pols AD NaTUN 3 
SEXTRN EDTS$$TO Bp’ BUF : 
-EXTRN EDT$$G_COR Bur, it -tNos ; 
SEXTRN EDT $ATSEL BUF , EDISSU~ SEL “UN 3 
-EXTRN eDTSSA_PRV-BUF , EDISSAT CUR” BUF : 
SEXTRN EDTS$T- LN Mes EDT$$G_RANG_MORELN 3 
-EXTRN EDTS$S$G"RNG PRETEN : 
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say aeeres EDTSRANRPOS = position 
v04-000 EDTSSRNG_REPOS 


000000006 00 4 
000000006 


000000006 
000000006 


10 AE soccougye 


14 
16 


000000006 
000000006 


000000006 


000000006 


68 
eeeeat * 
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= position to the 


o the reret line of ar 1 
irst Line of 1 
50 000000006 00 97 
i $2 097 
0 0 A 
02F 
52 000000006 
00000000G 8F 
0 : 
: 1 
0 0 
1 16 af 
i 
AE 000000906 00 
AE 0A AO 
ag 51 
5 04 A6 
67 10 AE 
000000006 9? 
10 ag 
000000006 H 
00 01 
9? 
00 6 
07 000000006 re 
50 6 
60 3 
0286 
67 
12 
67 67 
52 67 
07 
00 2 
F6 
50 000000006 
50 000000006 2 
000000006 60 
023C¢ 
00 00 
0006 
50 
60 E 
00000000G_ 8F 
00 1 
AE Se A6 
AE 8 A6 
i 
50 1 
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w$ep-1986 12:84:19 
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oe 
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wr 


EDTS$A_WK_LN Ro 
46, CRO) EDTS$L_RNG_EOL 
#0. EDTS$fOP_BUF 
DIS$A_SEL_BUF, R2 
#EDTS_NOSELRAN 


EDTS$A_CUR_BUF, RO 
Re RO 


1 
RO, ED 
R2. ED 
#0. ED 
uP 
K_CUR’BUF, RO 
, EDTS$L_SEL_LN 
(SEL LNT4, 


PR 
THPRAN 7 


RO), 
TMPRAN, (R7) 
EOTSS6_CUR_COL 


a 


#EDTS_INVSRAN 
#1, EDTSSFMT MSG 


TSSRD_PRVLN 


LN_BUF, RO 
“SEC_POS, RO 


SSA CUR_BUF RO 
(RO) , “EDT$$Z_RNG_SAVPOS 
NOOR I GNUM 
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EDTSRANRPOS EDTSRANRPOS = position to the first Line r 1b-5e Sep-19 VAX=-11 Bliss-32 V4.0-74 Page 15 
TOA 000 EDTSSRNG "REPOS = position to the first lL A of 1 Haat 7 9: $6: 93 PTC SUMMASTER CEDT Sac SRANRPOS.BLI:1 ° Ry 
6F 6 1 7900197 23$: ASHQ #1, P, P : 
000000006 0 €1 001 BBC 1, M1, 24$ ; 
6E 08 AE CO OO1A ADDL2 Me P : 
06 =A C AE D8 OO1A ADWC M2, P : 
7 50 F4 OO1AC 248 SOBGEQ 1, 23$ ; 
10 A 6E DO OO1A MOVL LINN : 
| 04 AE BO 001B MOVW pea, LINNO+4 : 
50 020000006 0 07 Ci 00188 25$ ADDL3 "EDTSSA_WK_LN, RO + 0901 
10 AE 60 D1 O001C CMPL troy" LOW_2 : 
if 1€4 BNEG 6$ : 
16 AE 04 Ao t 1€6 CMP (RO), HIGH_2 : 
A 13 001CB BEQL  20$ ; 
000000006 00 FB 1CD 26$: CALLS #0, EDTSSRD_NXTLN + 0903 
E1 EB 00104 BLES =séR : 
69 D4 0107 CLRL EDT $$G_RNG_ MORELN + 0906 
50 68 DO 00109 MOVL.  EDTSSA~CUR RO + 0907 
0 68 5 28 1D MOVC3 #14, EDT $37 “ANG SAVPOS, (RO) : 
000000006 00 FB OOTE CALLS #0 gorssae UREN + 0908 
000000006 _ &F pp iE PUSHL  #EDT NOSUCRLIN + 0909 
0195 31 OO1ED BRW 56$ : 
08 Aéd DD O1FO 27$:  PUSHL 8(R6) + 0922 
6A gi FB Oo1F CALLS #1, EDTSSRNG_REPOS ; 
39 0 £9 001F6 BLBC = RO, -33$ : 
69 01 DO 001F9 MOVL #1, EDT$$G_RNG_MORELN + 0925 
52 D4 OOTFC CLRL oI : 0927 
OA 11 O1FE BRB 29$ ; 
000000006 00 00 FB 0200 28$: CALLS 40, EDTSSRD_PRVLN + 0929 
28 0 €9 00207 BLBC =: RO, -33$ : 
FI 2 04 AB F3 0 OA 29$:  AOBLEQ 4(R6), I, 288 ; 
2— 11 0020F BRB 368 : 0927 
08 A6 DD 00211 30$:  PUSHL 8(R6) + 0949 
6A gi FB 0214 CALLS #1, EDTSSRNG_REPOS : 
18 0 €9 00217 BLBC RO, 33$ : 
69 o1 DO OO21A MOVL #1, EDTS$$G_RNG_MORELN + 0952 
2 D4 0021D CLRL : > 0954 
A 11 OO021F BRB 28 ; 
000000006 00 0 F 0 131$: CALLS 4&0, EDISSRD_ NXTLN : 0956 
07 E 8 BLBC ~—_ RO F 
F1 2 04 A6 F3 0020B 32$: AOBLEQ At bee 1, 31$ ; 
0D 11 6 BRB 36$ + 0954 
69 D4 33$:  CLRL DT$$G_RNG_MORELN : 0965 
09 11 00 BRB 6$ : 077 
08 A6 OD 34$: PUSHL  8(R6) : 097 
6A gi F CALLS #1, EDTS$$RNG_REPOS ; 
69 0 p C 35$: MOVL RO EDT$$G_RNG_MORELN : 
0164 F gs: BRW 60$ ; 
50 & : ae $:  MOVL. EDTSS$A CURB : 0986 
68 60 E 4 MOVC3 #14, (RO) EbT$$i RNG. SAVPOS : 
E 04 00249 CLRL = = (SP) : 0987 
03 01 ag 1 00248 CMPB 4 s«1(R6), #3 ; 
02 1 4F BNEQ 38$ ; 
oe D INCL (SP) : 
04 A6 DD 38$ PUSHL  4(R6) ; 
8 Ad DD PUSHL (RO) ; 
000000006 00 FB CALLS #3, EDTSSFND_STR ; 
02 CF 00260 CASEL F AMD Stat S, 740, #2 : 0989 
000E 014 0006 64 39: <WORD  40$-39$,- : 


Se 


a9 - Page 16 
° 26: VAX=11 Bliss-32 V4.0 748 9 
achosition fo the first Line of a ¢ 16-Sep-1986 01:26: MSMASTER:CEDT.SRCJRANRPOS.BLI;1 (3) 
ee al EDTSEANG REPOS’ s posit on to the first Line of 14-Sep 1986 scutes hen S 
cr 398" 0994 
000000006 SF DD OO26A 40S: —PUSHL —HEDTS_STRNOTFND Res 
000000006 8F DD 41S: PUSHL MEDTSSINVSTR 
000000006 00 } FB 00878 G28: CALLS AT. EDTSSEMT MSG ‘ 1009 
3 BG 00581 ROVE. _EDTSSATCURTBUF CR ; 1010 
0 eB : 8 Move a4, EDTSSZ_RNG SAVPOS, (RO) fon 
CALLS m : 1012 
cesses be 0120 31 QOSBF 438: GRY cat , 1032 
7 AS BB Bases SHEP, Hs : 
me CALLS #1. EDTSSRNG_REPOS ; 
FO 8) ES 00sec RO; ass : 1039 
01 29 51 0099F CMPB 187), rh ; 
3 25 0 a3 MOVC3 #6, 4(R7), EDTS$L_RNG_EOL ¢ 1041 
000000006 00 04 A? 26 so 88 ng BRB «48S : + 1044 
ee et hae “is 
A 90 00286 MOVE #10, 1(R6) ; 
en 33 DO o95Re MOVE ED TSSA UR_BUF, RO ; 1053 
20 Se 5B OOS °* «moves #14) CRO) “EbTSScAv_BUFPOS eas 
wis 57 Bb G04 CALLS 1» EDTSSRNG. REPOS ; 
$4 3 68 005¢8 ROVE” RO’ ‘END FOUND 
HA a 4 09 fe BLBC END_FOURD, 478 1056 
50 000000006 90 60 Odecr MOVES 6.1 CRO) > EOTSSL RNG_EOL ; 
“ 8 am gitd MOVE fS$A_cuR BUF, RO ; 1058 
© ee BO RB Fite te co i= 
$° 00000006 00 9 FB 00 ES CALLS #0," EDTSSRD_CORLN g 1089 
9 57 £8 Goss ROVE #1, “EDT'S$6_RNG_MORELN : 1065 
69 01 0 O2F1 48$: MOVL 508 =RNG_ : 0770 
OOM DO DOSE? 498: —ROVL. © 18¢R6), SUB_RAN : 198) 
3 12 Ag DY 003fB CRE g0(SUB_RAN); R6 ; 
$0 £8 O08 CALLS EDTSSINTER_ERR oe 
000000006 00 “eB: ° Bh sos: TSI 1¢§UB_RAN) 
: AN) ; 
. § os 5 : MOVE ALL EDISSGCRNGFRSTLN : 1086 
000000006 9 DO 00818 EDTSSA_CUR-BUF ; 10 
30 E38 OSI MOVES #14. (RO). “EDTS$Z_RNG_ORIGPOS + sme 
000000006 00 - DD 00328 PUSHL 16 (R6) ; 
6A aoe a é CALLS #1, EDTSSRNG_REPOS ; 
i a vec, 378 t ro9 
08 AS DD 0033 PUSHE  B«RE) 
8 OS PB boss CALLS #2, EDTSSSET_SEASTR 
000000006 90 ABE LBS RO. GIS 109% 
000000006 &F PUSHL #ebT + 
4 " mova CRG), (SP) : 1112 
7E 08 Ab 7D 00344 528: 0 ; 


ea 2rrmmnin 


Ka 
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Ou 000 DTSSRNG "REPOS? = position to the lirst l . “et 18-ge0 Sep =1382 9}: o: 9 DISKSVMSMASTER:CEDT. SRCSRANRPOS.BLI:1 71 = Ry 
000000006 00 Q F 48 CALLS 2, EDISSFND_ BUF ; 
2 f mbyL | (aCkGS ‘Sup. RANGE £1115 
00000066 3 é STs eDrssé EXE-SBITS + 1117 
5 MOVL. EDTSSA UR. BUF + 1119 
000000006 00 é9 8 af MOVC3 #14, (nb) “EDT§8z_ANG_OR1GPOS : 
000000006 F $9 53$: CALLS #0, EDT$S$TOP_BUF ; 1121 
01 A? 9 TSTB 168 RANGE)” + 1123 
4 1 7 BNEQ 54 5 
01 A? : 9 7 MOVB #11, 1(SUB_RANGE) : 
DD , 54$ PUSHL SUB _ RANGE + 1125 
6A 1 €B B CALLS #1, ~EDTS$RNG_REPOS ; 
04 0037 RET + 1128 
000000006 8F DD 0037F 55$ PUSHL #EDTS_INSMEM + 1129 
000000006 00 01 FB 00385 54$ CALLS #1, EDTSSFMT_MSG ; 
1 $11 0 ct 57$ BRB 628 + 1130 
50 68 D0 E 58$ MOVL EDT$$A_CUR_BUF, TEMP + 1145 
68 000000006 00 D0 00391 MOVL  EDTSS$A~PRV“BUF, EDTS$$A_CUR_BUF + 1146 
000000006 00 50 00 00398 MOVL TEMP, EDT$SA_PRV_BUF + 1147 
000000006 00 90 FB OO39F 59$: CALLS #0, EDT$SR CURL + 1148 
000000006 00 6 00 003A6 60$:  MOVL 6, EDT$$Z_RNG_CURRNG : 1158 
07 000000006 00 €9 003AD BLBC «EDT $$G_RN =ERSTLN 1$ : 1160 
50 68 DO 00384 MOVL.  EDTSS$A~ CUR rb ; 
68 60 O£ 28 00387 MOVC3 «#14, cr ~puréss _RNG_SAVPOS ; 
50 01 DO 00388 61$:  MOVL #1, RO + 1162 
04 003BE RET ; 
50 D4 OO3BF 62$:  CLRL RO : 1163 
04 003¢1 RET : 


; Routine Size: 962 bytes, Routine Base: _EDTSCODE + 0000 


64 1 
65 1 !<BLF/PAGE> 


; 11 
3; 395 11 
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EDTSRANRPOS DISRANRPOS = position to the first Line r 1b-5ep-1 6: VAX-11 Bliss-32 V e 18 
Ou s000 EDT TSSRNG "REPOS = position to the first tt utr eof 1 a ae 198 9}: 3¢ 93 DISKSVMSMASTER: cto 1°SRCSRANRPOS.8LI:1 31 ~~ (4) 
; $97 1368 1 Ew ! of module EDTSRANRPOS 
3 a8 1167 1 
3 1168 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 962 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; quassese Syabel§ Secoccce Pages Processing 
: File Total ioaded Percent Mapped Time 

; ~$3358Duaz8: EDT. SRCJEDT L321 377 125 33 40 00:00.2 
; ~S$255SDUA EDT.SRCJPSECTS.L32;1 2 1 0 7 00:00.1 
3 COMMAND QUALIFIERS 


FL ESEPCMECE NE? FELD DOE TEAL APT DRESS /USTORE CONTRA, LDS LOH SAP OS ER IERIE EOS MSRC$:RANRPOS .BLI/UPDATE=(ENH$ : RANRPOS 


Y Used: 365 pages 
— ation Complete 


3; Size: 962 sede + 0 data bytes 
; Run Time: 00:4 8-¢ 

3; Elapsed Time: 93 422° 

3; Lines/CPU oot 

3 yoncnee/ $933 
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